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Tagliando abbonamento a PAPERSoftda inviare in busta chiusa a: 

J.soft - Viale Restelli, 5 - 20124 MILANO 

□ Abbonamento a 38 numeri di PAPERSoft al prezzo speciale di L. 30.000 anziché L. 
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ora 

abbonamento 


nell’edizione 
per il tuo 


computer 


Il primo settimanale di software su carta 
personal computer. Un appuntamento al quale 
mancare ogni venerdì in edicola. 

Nàto in edizione unica, per i più diffusi home 
e personal computer, dal 4 Aprile, allo 
stesso prezzo, sono in edicola le versioni 
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Sinclair e un’edizione esclusiva 
dedicata ai personal Apple, Texas 
TI99/4A e ai sistemi MSX. Puoi anche 
abbonarti dal 4 Aprile al 31 Dicembre 
riceverai così, comodamente a casa con 
un notevole risparmio, 38 numeri del 
settimanale. Chi si abbona riceverà ogni 
15 giorni 2 numeri di Paper Soft in 
anticipo rispetto all'uscita in edicola. 
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Compila subito il coupon sotto riportato 
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il 
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Guida per l’input dei programmi versioni 
VIC 20 e C64 


Notate che i listati contendono 'paro¬ 
le' racchiuse tra parentesi sraffe / /. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [ ()] deve essere premu¬ 


to contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parente¬ 
si si trova un carattere alfabetico "soli¬ 
tario"' questo dovrà essere premuto 
contemporaneamente al tasto CON¬ 
TROL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


ICLR) 
(HOME) 
{SU} " 
{GIU' } 
{SIN} 
{DES} 

{ RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


Cll/HOW 


Ctft/HOMf 


smim IH cesa u 


SHIH|^C*S 0 


GZ3 □ 

oza □ 


CIRI 




{CYN} 
{PUR} 
{GRN} 
{BLU) 
{YEL} 
(<1>) 
l < 2 >} 
(<3>1 
l<4>) 
I<5>1 
l<6>) 



l<7>) 
l < 8 > 1 

□ irli 
La ,F2 > 


CIA 


30 
30 
3 0 
30 
30 
30 


sa 

{F 3} 

□ 

{F4 } 

K 

{FS) 

9 

{F6} 


{F7} 

È 

■1 

{ F8 } 


30 

□ 

30 

J J 

m 

■1 


a 

olì 

■ 

m 

1B 

IB 

II 

m 

Si 

E B 

II 

CE 

■ 


Per ricevere gli arretrati di compilare il seguente tagliando: 

K 

~ Compilare ed inviare in busta chiusa a: 

J.SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome- 

Indirizzo_ 

CAP_ Città- Prov. 


Desidero ricevere i seguenti numeri arretrati di 


iO'/fi - 

zy'J'J dedicato a. 


Anno 

Anno- 


a L. 2.000 cad. per un totale di L. 


a mezzo 


□ assegno allegato □ contanti allegati 

K 






Mister cube 



8K RAM e Joystick 


Si tratta di un gioco arcade-styie 
per VIC con almeno 8K di espan¬ 
sione, ispirato al famoso Q*Bert. 
Devi infatti colorare tutti i cubi di 
ghiaccio che formano il campo di 
gioco, evitando i mostri che cerca¬ 
no di catturarti. Essi sono, in ordine 
di pericolosità, il Sosia Nero (livello 
1), il Fantasma (livello 2), Saetta (li¬ 
vello 3) e il Marziano (livello 4). 
Ogni livello è composto da quattro 
round che si svolgono su altrettanti 
campi di gioco. 

Quando inizi hai tre vite a disposi¬ 
zione, e durante il gioco ne guada¬ 
gni una ogni 5000 punti. Dopo il 
quarto round ritorni alla configura¬ 
zione del primo, ma al livello supe¬ 
riore. Ad ogni livello appare un 
nuovo mostro, e ciò accade fino al 
quarto; successivamente i mostri 
restano sempre quattro. Quando 
completi un quadro ti viene asse¬ 
gnato un bonus in base al tempo 
impiegato (più sei rapido, più pun¬ 
ti guadagni). Per completare un 
round devi colorare, passandoci 


sopra, tutti i cubi di ghiaccio (42 
nel primo, 37 nel secondo, 7 7 nel 
terzo e 25 nel quarto). Ti muovi 
nelle quattro direzioni usando il 
joystick; premendo il pulsante ti 
sposti in un punto a caso del cam¬ 
po di gioco (ciò è utile nelle situa¬ 
zioni difficili). Se il mostro ti cattura 
perdi una vita e riappari in una 
nuova posizione, scelta casual¬ 
mente. Ogni cubo che colori ti frut¬ 
ta 7 0 punti. 

Il gioco è composto da tre pro¬ 
grammi, che vanno digitati e salvati 
su nastro nell'ordine in cui li pub¬ 
blichiamo, chiamandoli rispettiva¬ 
mente "MISTER CUBO", "CUB02" e 
"CUB03". Sarà poi sufficiente cari¬ 
care e lanciare il primo programma, 
dopo di che il secondo ed il terzo 
verranno caricati automaticamente 
ed il gioco partirà. Chi utilizza il disk 
drive deve togliere la parola REM 
all'inizio della linea 130 del pro¬ 
gramma 1 e della linea 180 del pro¬ 
gramma 2, seguendo per il resto la 
procedura già indicata. 


programma 1 


10 REM*************** : rem 
20 REM* MISTER CUBO * ideiti 
50 REM* (C)1985 BY * :rem 
60 REM*MARCO MARINAI* :rem 
80 REM* PRG#1 * : rem 
90 rem*************** :rem 


100 PRINT"{CLR}{ 3 GIU'}P043,1 :P044,32 :P08192,0:NEW" 

: rem 


1 87 
1 51 
163 
1 7 
221 
1 95 


1 0 


5 











110 PRINT"{ 2 GIU'}P03 6869, 240 :P036866,1 50:P0648,30 :?"CHR 
$(34) "{CLR}{ 3 GIU 1 }LO"; :rem 186 

1 20 PRINTCHR$(34)"CHR$(34)"CHR$(34)"CUB02"CHR$(34)"CHR$(3 



4)"CHR$(34); 

: rem 

216 

1 30 

REM PRINT",8"; 

: rem 

232 

1 40 

PRINT"{HOME}"CHR$(34) 

M {HOME}" :rem 

1 37 

1 50 

POKE631 ,13 :POKE632,1 3 

:POKE633,13:POKE634,82:POKE635,2 


1 3:POKE636,1 3:POKEl98,6:END :rem 147 


programma 2 


1 0 

REM* ************** 

: rem 

1 87 

20 

REM* MISTER CUBO * 

: rem 

1 51 

30 

REM* (C)1985 BY * 

: rem 

1 61 

40 

REM*MARCO MARINAI* 

: rem 

1 5 

50 

REM* PRG#2 * 

: rem 

21 9 

60 

rem*************** 

: rem 

1 92 

70 

IFPEEK ( 44) O320RPEEK (648) O30THENPRINT" 

{CLR}{GIU 1 

}CARI 


CARE IL PRG#1": END 

: rem 

1 0 

110 POKE36879,8 :PRINT"{CLR}{WHT}{GIU'}Q{ 2 
{ 3 SPAZI}{ 3 Q} Q Q { 3 Q} {7 Q}J 3 

SPAZI}Q 
SPAZI}Q 



{ 3 SPAZI}Q Q Q Q Q Q"; 

: rem 

1 89 


120 PRINT"Q{ 2 SPAZiJqT 3 SPAZI}Q{ 3 SPAZI}Q Q { 3 Q) Q 
{ 2 Q}f 2 SPAZl}Ql 3 SPAZl}Ql 3 SPAZl}Q Q Q Q Q 
{ 2 Q}{ 2 SPAZI}Q Q { 3 Q} J 3 Q} { 3 Q} { 3 Qj" ; 

:rem 97 

130 PRINT"{ 2 GIU'}{GRN}{ 5 SPAZI}(C)1985{ 2 SPAZl}BY:" 

:rem 229 

140 PRINT"{GIU'}{BLU}{ 3 SPAZI}[<A>]{ 14 _*}[<S>] 

{ 6 SPAZI }-^{YEL} MARCO { 2 SPAZI }MARINAI {BLU}- 
{ 6 SPAZI}[<Z>]{ 14 *} [<X>] {BLK}{GIU'}" :rem 233 

1 50 FORT=5120TO7168 :POKET,PEEK(T+32768-51 20) :NEXT 

:rem 165 


160 FORT=51 20 + 65*8T051 20 + 79*8 + 7 : READA :POKET,A :NEXT 

: rem 211 

170 FORT=5760TO578 3 :POKET,PEEK(T-120) :NEXT :rem 72 

175 PRINT"NEW":PRINT"{ 2 GIU'}LO"CHR$(34)"CUB03"CHR$(34); 

:rem 237 

180 REM PRINT",8"; : rem 237 

185 PRINT"{HOME}{ 9 GIU'}" :rem 27 

190 POKEl98.5:POKE631,13 :POKE632.1 3 :POKE633.82:POKE634.21 



3 :POKE635,1 3 


: rem 

237 

1 95 

END 


: rem 

1 1 8 

200 

DATA0,0,0,7,63,7,0,0 


: rem 

1 67 

21 0 

DATA0,28,255,255,255,255 

,255,28 

: rem 

241 

220 

DATA0,0,128,240,254,240, 

128,0 

: rem 

1 1 1 

230 

DATA 56,63,63,63,63,63,63 

,63 

: rem 

45 

240 

DATA0,0,227,252,255,252, 

255,252 

: rem 

226 

250 

DATAI 4,1 1 2,1 42,240,1 42,240,1 42,24 0 

: rem 

101 

260 

DATA7,0,0,0,0,0,0,0 


: rem 

1 09 


6 



270 DATA255,255,28,0,0,0,0,0 
280 DATA240,128,0,0,0,0,0,0 
290 DATA24,60,1 26,21 9,255,1 02 
300 DATAO,0,0,36,0,24,0,0 
310 DATA24,60,1 26,21 9,255,1 95 
320 DATA64,32,16,8,16,8,4,2 
330 DATA231,66,90,126,219,255 
340 DATA60,66,60,0,0,126,255, 



: rem 

1 21 


: rem 

57 

,60,24 

: rem 

229 


: rem 

208 

,255,171 

: rem 

83 


: rem 

86 

,102,126 

: rem 

76 

1 26 

: rem 

75 


programma 3 


10 REM*************** :rem 
20 REM* MISTER CUBO * :rem 
50 REM* (0 1985 BY * :rem 
60 REM*MARCO MARINAI* :rem 
80 REM* PRG#3 * :rem 
90 rem*************** :rem 
100 DIMNl (7) ,Dl (7) ,N2 (13) ,D2(13) :rem 


110 Vi=36874:V2=36875:V3=36876:V4=36877:VO=36878:rem 
1 20 CO=30720 :JJ=371 54 :PA=371 37 :PB=371 52:CS = 36879: rem 


1 87 
1 51 
163 
1 7 
223 
1 95 
83 
1 84 
1 63 


1 30 FORT=1TO7 :READN1 (T) ,Dl (T) :NEXT:FORT=lTOl3:READN2(T) ,D 
2(T):NEXT : rem 117 

1 40 POKECS,8 :POKEVO-9,253:POKEVO,15:DEFFNA(X)=INT(RND(1)* 
X) :rem 128 

150 SC = 0:VT=3:LV=1 :RD=1 :D=1 :VB=50000 :rem 101 

160 PRINT"{CLR}{YEL}***{ 2 SPAZI}{RVS}MISTER{ 2 SPAZl}CUB 
O{OFF}{ 2 SPAZI}***":PRINT"{GIU'}{WHT}PUNTI:{RVS}";RI 
GHT$(STR$(SC),LEN(STR$(SC))-1) :rem 35 

170 PRINT"{GIU*}{GRN}LIVELLO:{RVS}";RIGHT$(STR$(LV),LEN(S 
TR$(LV))-1) : rem 3 

180 PRINT"{GIU'}{PUR}ROUND:{RVS}";RIGHT$(STR$(RD),LEN(STR 
$(RD))-1) :rem 219 

1 90 PRINT"{GIU'}{CYN}VITE :{RVS}";RIGHT$(STR$(VT) ,LEN(STR$ 
(VT))-1) : rem 183 

200 PRINT"{ 3 GIU'}{RED}{ 2 SPAZl}PREMl{ 2 SPAZlJlL PULSA 
NTE" :rem 48 

210 IF (PEEK (PA) ANDl 90) O30THEN21 0 :rem 134 

220 PRINT"{CLR}{YEL}***{ 2 SPAZI}MISTER{ 2 SPAZl}CUBO 

{ 2 SPAZI}***":ONRDGOSUB900,940,1000,1040 :rem 188 
230 PO=FNA (506)+ 7680: IFPEEK (PO) O66THEN230 :rem 186 

240 Mi=FNA(506)+7680:Pl=PEEK(Mi):Cl=PEEK(Mi+CO):IFPl<>660 
RMl=POTHEN240 : rem 138 

250 M2=FNA(506)+7680:P2=PEEK(M2):C2=PEEK(M2+CO):IFP2<>660 
RM2=MlORM2=POTHEN250 :rem 110 

260 M3=FNA(506)+7680:P3=PEEK(M3):C3=PEEK(M3+CO):IFP3<>660 
RM3=M20RM3=MlORM3=POTHEN260 :rem 85 

270 M4 = FNA(506)+7680 :P4 = PEEK(M4):C4 = PEEK(M4+CO) :rem 172 
280 IFP4<>660RM4=M30RM4=M20RM4 =m 1ORM4=POTHEN270 :rem 243 
290 CU=CU-1 :POKEPO+CO,6 :POKEPO,74 :POKEPO+CO-1,3:POKEPO+CO 
+1,3:POKEPO-l,80:POKEPO+1,82 :rem 34 
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300 SC=SC+10*LV:FORT=1TOD sONTGOSUBl 100,1110,1 120,1130 

:rem 91 

310 NEXT:FORT=lTOl3 :POKEV2,N2(T) :FORI = 0TOD2(T):NEXT:NEXT: 

POKEV2,0 : rem 211 

320 POKEJJ,255 :Jl=PEEK(PA)AND!90 :POKEJJ,127 :J2 = PEEK(PB) :I 

FJl=62ANDJ2=247THEN400 :rem 25 

330 IFJ1=30ANDJ2 = 247THEN660 :rem 52 

340 DI=0:DI=DI+((Jl=46)*3)-((J2=119)*3) + ( (Jl=58)*66)- ((Jl 
=54)*66):P=PEEK(PO+DI) :rem 144 

350 IF (P066ANDP081 ) AND (P<750RP>78) THENDI = 0 :GOTO380 

:rem 165 

360 IFP=66THENSC=SC+10*LV:CU=CU-1:GOTO380 :rem 36 

370 IFP>74ANDP<79THEN780 :rem 191 

380 POKEPO+CO,3 :POKEPO,81 :PO=PO+DI:POKEPO+CO,6 :POKEPO,74 

:rem 85 

390 POKEPO+CO-1,3:POKEPO+CO+l,3:POKEPO-l,80:POKEPO+1,82:P 
OKEV3,200 :POKEV3,0 :rem 86 

400 IFSC>=VBTHENFORT=lT07:POKEV3,N1(T):FORI=OTODl(T):NEXT 
:NEXT:VT=VT+1:VB=VB+50000 :rem 52 

410 IFClKlTHEN710 :rem 240 

420 BO=BO-10:IFBO<0THENBO=0 :rem 118 


430 DI=0:ONFNA(D)+1GOTO440,480,540,590 :rem 86 

440 POKEMl+CO,Cl:POKEMl,Pl:DZ=FNA(3)+1:DI=DI+((DZ=1)*66)- 
((DZ=3)*66):DZ=FNA(3)+1 :rem 61 

450 DI=DI+((DZ=1)*3)-((DZ=3)*3):P=PEEK(Mi+DI):IFP<>66ANDP 
081 ANDP<>74THENDI = 0:GOTO470 :rem 23 

460 IFP=74THENMl=Ml+DI: Pi=81 :Cl = 3 :POKEMl+CO,1:POKEMl,75:G 
OTO790 : rem 83 

470 Mi=Ml+DI: Pi=PEEK(Mi) :Cl=PEEK(Mi+CO) :POKEMl+CO,l:POKEM 
1,75:GOTO 320 :rem 156 

480 POKEM2+CO,C2:POKEM2,P2:IFM2-(INT(M2/22)*22)>PO-(INT(P 
0/22)*22)THENDI=DI-3:GOTO500 :rem 37 

490 IFM2-(INT(M2/22)*22)<PO-(INT(PO/22)*22)THENDI=DI+3 

:r em 62 

500 DZ = FNA(3)+1 :DI=DI + ( (DZ=1)*66)-( (DZ = 3)*66) :P = PEEK(M2+D 
X) :rem 12 

510 IFP066ANDP081 ANDP<>74THENDI = 0:GOTO530 :rem 157 

520 IFP=74THENM2=M2+DI:P2=81 :C2 = 3:POKEM2+CO,2 :POKEM2,76 :G 

OTO790 : rem 88 

530 M2=M2+DI:P2 = PEEK(M2) :C2 = PEEK(M2+CO) :POKEM2+CO,2 :POKEM 
2,76:GOTO320 :rem 163 

540 POKEM3+CO,C3:POKEM3,P3:IFINT(M3/22)>INT(PO/22)THENDI= 
DI-66:GOTO560 :rem 48 

550 IFINT(M3/22)<INT(PO/22)THENDI=DI+66 :rem 63 

560 DZ=FNA(3)+1:DI=DI+((DZ=1)*3)-((DZ=3)*3):P=PEEK(M3+DI) 

:rem 161 

570 IFP066ANDP081 ANDPO74THENDI = 0:G0T0585 :rem 173 

580 IFP=74THENM3=M3+DI:P3 = 81 :C3=3:POKEM3+CO,7 :POKEM3,77 :G 

OTO 790 :rem 106 
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585 M3=M3+DI:P3=PEEK(M3) :C3=PEEK(M3+C0) :P0KEM3+C0, 7 :POKEM 
3,77:GOTO 320 :rem 187 

590 POKEM4+CO,C4:POKEM4,P4:IFINT(M4/22)>INT(PO/22)THENDI= 
DI- 6 6 : GOTO 610 :rem 54 

600 IFINT(M4/22)<INT(PO/22)THENDI=DI+66 :rem 60 

610 IFM4-(INT(M4/22)*22)>PO-(INT(PO/22)*22)THENDI=DI-3:GO 
TO630 :rem 76 

620 IFM4-(INT(M4/22)*22)<PO-(INT(PO/22)*22)THENDI=DI+3 

:rem 61 

630 P=PEEK (M4+DI) : IFP066ANDP081 ANDPO74THENDI = 0 :GOTO650 

:rem 25 

640 IFP=74THENM4=M4+DI:P4=81:C4=3:POKEM4+CO,5:POKEM4,78:G 
OTO790 : rem 108 

650 M4=M4+DI:P4=PEEK(M4) :C4 = PEEK(M4+CO) :POKEM4+CO,5:POKEM 
4,78:GOTO320 :rem 187 

660 POKEPO+CO,3 :POKEPO,81 :rem 35 

670 PO = FNA (506) +7680: IFPEEK (PO) O 66 ANDPEEK (PO) O81THEN670 

:rem 149 

680 IFPEEK(PO)=66THENSC=SC+10*LV:CU=CU-1 :rem 224 

690 POKEPO+CO,6:POKEPO,74:POKEPO+CO-1,3 :POKEPO+CO+1,3:POK 
EPO-1,80:POKEPO+1,82 :rem 33 

700 POKEV3,220:POKEV3,0:GOTO320 :rem 101 

71 0 FORT=l28T0255STEP2:POKEV3,T:FORI = OTOTSTEPl0 :NEXT:NEXT 
: POKEV3,0 -.rem 117 

720 PRINT"{HOME}{GRNjBONUS:{ 16 SPAZIPRINT"{HOME} 

{GIU'}{WHT}PUNTI :":BO=INT(BO/100):BI=BO*100 :rem 61 

730 FORT=lTOBO:SC=SC+l00:BI=BI-100:PRINT"{HOME}{ 6 DES} 

{ 8 SPAZI}":PRINT"{HOME}{ 6 DES}{GRN}";BI :rem 157 

735 PRINT"{HOME}{GIU'}{ 6 DES}{WHT}";SC :rem 24 

740 IFSC>=VBTHENFORJ=lT07:POKEV3,Nl(J):FORI=0TODl(J):NEXT 
:NEXT:VT=VT+1:VB=VB+50000 :rem 29 

750 NEXT:FORT=0TO50:POKECS,FNA(256):NEXT:POKECS,8:FORT=0T 
01500:NEXT :rem 83 


760 RD=RD+1:IFRD>4THENRD=1:LV=LV+1:D=D+1:IFD>4THEND=4 

:rem 59 

770 GOTO160 :rem 110 

780 POKEPO+CO,3:POKEPO,81:PO=PO+DI :rem 147 

790 POKEPO+CO,6:POKEPO,79:POKEV4,130:POKEVl,130 :FORT=0TO7 
5 :NEXT:POKEV4,0 :POKEVl,0 :rem 153 

800 FORT=OTOl000 :NEXT:FORT=255TOl28STEP-1:POKEV2,T:NEXT:P 
OKEV2,0:FORT=OTOl 500:NEXT : rem 62 

81 0 PO=FNA (506)+7680: P=PEEK (PO) : IFP066ANDP081 THEN81 0 

:rem 223 

820 IFP=66THENSC=SC+10*LV:CU=CU-1 :rem 23 

830 POKEPO+CO,6:POKEPO,74:POKEPO+CO-1,3 :POKEPO+CO+1,3:POK 
EPO-1,80:POKEPO+1,82 :rem 29 

840 POKEV3,220:POKEV3,0 :FORT= OTO2 50 0 :NEXT:VT=VT-1 :1FVT<1T 
HEN860 : rem 253 

850 GOTO320 :rem 107 
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860 PRINT"{CLR}{YEL}*** { 2 SPAZI}{WHT}F {RED}I{CYN}N{PUR}E 
{ 2 SPAZI}{GRN}G{BLU}I{YEL}0{WHT}C{RED}0{YEL} 

{ 2 SPAZI}***":PRINT"{ 2 GIU'}{WHT}PUNTI:";SC 

:rem 242 

870 PRINT"{ 4 GIU'}{GRN}{ 2 SPAZI}PREMl{ 2 SPAZI}IL PULSA 
NTE" : rem 80 

880 IF(PEEK(PA) ANDl 90) 030THEN880 : rem 160 

890 FORT=12 8T02 55 :POKEV3, T :NEXT:POKEV3,0 :FORT=OTOl 000:NEX 
T:RUN :rem 26 

900 F0RT=1T06 :rem 27 

910 PRINT"{WHT}ABCABCABCABCABCABCABC" : rem 90 

920 PRINT"{GRN}DEFDEFDEFDEFDEFDEFDEF" :rem 179 

930 PRINT"{GRN} GHIGHIGHIGHIGHIGHIGHI ":NEXT:CU=42:BO=20000 
: RETURN :rem 24 5 

940 FORT=1T03:PRINT"{WHT} ABCABCABCABCABCABCABC {PUR} PEFD 
EFDEFDEFDEFDEFDEF" :rem 219 

950 PRINT"{PURjGHIGHIGHIGHIGHIGHIGHI":PRINT:PRINT:PRINT:N 
EXT : rem 65 

960 PRINT"{WHT}ABCABCABCABCABCABCABC {PUR}DEFDEFDEFDEFDE 
FDEFDEF {PUR} GHIGHIGHIGHIGHIGHIGHI {HOME}{GIU'}" 

:rem 76 

970 FORT=lT06:PRINT"{WHT}{ 3 DES}ABC{ 3 DES}ABC{ 3 DES}A 
BC { 3 DES} {PUR}{ 3 DES} DEF { 3 DES} DEF { 3 DES} DEF " 

:rem 238 


980 PRINT" {PUR} { 3 DES} GHl { 3 DES } GHI {♦ 3 DES} GHI " : NEXT 

:rem 148 

990 CU=37:BO=15000:RETURN :rem 249 

1 000 Al$ = "{WHT}ABC":A2$="{RED}DEF":A3$ = "{RED}GHI":P$ = " 

{ 9 DES}" : rem 219 

1010 PRINTP$; Al $ :PRINTP$;A2$:PRINTP$;A3$:FORT = lT03 

:rem 104 

1 020 Al$=A1$ + "ABCABC":A2$ =A2$ + "DEFDEF":A3$=A3$ + "GHIGHI" :P 
$=LEFT$(P$,LEN(P$)-3) :rem 206 

1 030 PRINTP$; Al $ :PRINTP$;A2$:PRINTP$;A3$:NEXT:CU=16 :BO=l0 
000:RETURN :rem 179 

1 040 GOSUBl 000 :FORT=1T02: Al$=LEFT$(Al $,LEN(Al $)-6) :A2$=LE 
FT$(A2$,LEN(A2$)-6) :rem 241 

1 050 A3$=LEFT$(A3$,LEN(A3$)-6) :P$ = P$ + "{ 3 DES}":PRINTP$ ; A 
1 $ :PRINTP$;A2$:PRINTP$ ; A3$:NEXT :rem 239 

1060 PRINT"{ 9 SPAZI}{WHT}ABC{GIU'}{ 3 SIN}{RED}DEF{GIU'} 
{ 3 SIN} {RED} GHI { HOME'FTCU = 25 : BO=l 7000:RETURN 

:r em 53 

1070 DATA215,150,225,150,231,150,235,350,231,150,235,350, 
0,0 :rem 151 

1 080 DATA217,400,21 3,400,223,400,227,200,234,200,230,400, 


227,200,234,200,230,400 
1090 DATA223,400,227,400,217,400,213,600 
1 100 POKEMl+CO,1 : POREMI,75:RETURN 
1110 POKEM2+CO,2 :POKEM2,76:RETURN 
1120 POKEM3+CO,7 :POKEM3,77 : RETURN 


:rem 84 
:rem 204 
:rem 34 
:rem 39 
:rem 48 
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1130 POKEM4+CO,5 :POKEM4,78 : RETURN 


: rem 


50 


Orrore 


Questo non è il solito videogioco 
spaziale;■ si tratta invece di un sim¬ 
patico gioco di carte i cui protago¬ 
nisti sono mostri di ogni genere. 
All’inizio il computer, che è il tuo 
avversario, mescola il mazzo e di¬ 
stribuisce 16 carte a testa,- viene 
poi mostrata una delle tue carte. 
Ogni carta corrisponde ad un mo¬ 
stro, e contiene quattro percentua¬ 


li relative alle sue qualità: devi sce¬ 
glierne una. A questo punto il 
computer prende una delle sue 
carte, e il dato selezionato viene 
confrontato. Chi ha la percentuale 
più alta si aggiudica la carta del¬ 
l’avversario e il diritto a condurre 
il gioco per la mano successiva. 
Vince chi riesce a conquistare l’in¬ 
tero mazzo di 32 carte. 


1 REM ORRORE 


: rem 

238 

• 

10 DIMPC(32) ,CC (32) :POKE36879,30 :POKE36878,1 5 

: rem 

0 

1 00 

PRINT"{CLR}{ 2 GIU' 

}{ 4 SPAZI}{RED}{RVS}*** 

ORRORE 

★ ★ 


*{BLU}" 


: rem 

57 

1 1 0 

PRINT"{ 5 GIU'}{ 4 

SPAZI}STO MESCOLANDO" 

: rem 

1 47 

1 20 

PRINT"{ 2 GIU'}{ 7 

SPAZI}LE CARTE{ 3 GIU'}" 

: rem 

1 85 

1 30 

RN=INT(RND(1)*32)+1 


: rem 

254 

1 32 

FORI=lTON 


: rem 

37 

1 34 

IFRN< >PC(I)GOTOl36 


: rem 

65 

1 35 

FL=1 : I = N 


: rem 

1 67 

1 36 

NEXT 


: rem 

21 7 

1 38 

IFFL=1THENFL=0:GOTOl30 

: rem 

96 

1 40 

PC(N+l)=RN 


: rem 

0 

1 50 

N=N+1 


: rem 

203 

1 60 

IFN=32THEN210 


: rem 

21 6 

1 70 

GOTOl30 


: rem 

101 

21 0 

FORI=17TON 


: rem 

89 

220 

A=A+1 


: rem 

1 75 

230 

CC(A)=PC (I) 


: rem 

23 

240 

NEXT 


: rem 

21 3 

250 

PN=16 :CN=16 


: rem 

72 

330 

PRINT"{GIU'}{RED}{ 

4 SPAZI}PREMI UN TASTO{BLU}"; 





: rem 

1 53 

340 

GETAA$ 


: rem 

29 

350 

IFAA$=""THEN340 


: rem 

20 
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355 

PRINT"{CLR}"; 




: rem 

60 

360 

READD,D$ ,AF,BF,CF,DF 




: rem 

95 

370 

IFDOPC (1 ) THEN360 




: rem 

1 96 

380 

RESTORE 




: rem 

1 91 

400 

PRINT"{GIU'}LA TUA CARTA 

T? * " 

Hi • • • 



: rem 

78 

410 

PRINT"{DES}{RVS}{BLK}"D$ 

" {BLU}” 



: rem 

240 

420 

PRINT"{GIU'}1-FORZA"AF 




: rem 

223 

430 

PRINT"2-PAURA"BF 




: rem 

200 

440 

PRINT"3-POTENZIALE"CF 




: rem 

77 

450 

PRINT"4-MOSTRUOSITA "’DF 




: rem 

230 

460 

IFFL=1THEN570 




: rem 

244 

470 

INPUT"{GIU'}QUALE SCEGLI 

Z 



: rem 

68 

480 

READD,D$,FA,FB,FC,FD 




: rem 

98 

490 

IFDOCC (1 ) THEN480 




: rem 

1 89 

495 

RESTORE 




: rem 

1 98 

500 

PRINT"{GIU'}LA MIA CARTA 

T? 1 Il 

Hi • • • 



: rem 

60 

510 

PRINT"{DES}{RVS}{BLU}"D$ 




: rem 

29 

520 

PRINT"{GIU'}1-FORZA"FA 




: rem 

224 

-530 

PRINT"2-PAURA"FB 




: rem 

201 

540 

PRINT"3-POTENZIALE"FC 




: rem 

78 

550 

PRINT"4-MOSTRUOSITA'"FD 




: rem 

231 

560 

IFFL=1GOTO700 




: rem 

250 

570 

ONZGOTO580,590,600,610 




: rem 

1 84 

580 

A=AF-FA: GOTO6 2 0 




: rem 

97 

590 

A=BF-FB:GOTO620 




2 rem 

1 00 

600 

A=CF-FC:GOTO620 




2 rem 

94 

61 0 

A=DF-FD 




2 rem 

86 

620 

IFA<0THENGOSUB5000 :PRINT 

"{CLR}";: 

GOTO480 

2 rem 

48 

630 

GOSUB6000:GOTO330 




2 rem 

232 

700 

IFFA>FB ANDFA>FCANDFA>FDTHENZ = 1 :GOTO740 

2 rem 

1 87 

71 0 

IFFB>FCANDFB>FDTHENZ=2 : GOTO740 



2 rem 

1 59 

720 

IFFC>FDTHENZ=3:GOTO740 




2 rem 

1 28 

730 

Z = 4 




2 rem 

101 

740 

PRINT"{GIU'}IO SCELGO"Z 




2 rem 

44 

750 

FORW=lT04000 : NEXT 




2 rem 

40 

760 

GOTO360 




2 rem 

1 1 1 

5000 PRINT"{GIU'}HO VINTO.": 

POKE36876 

,150 

:FORTD= 

ITO!00 : NE 


XT:POKE36876 , 0 




2 rem 

220 

5005 PRINT"ADESSO HO :"CN+1"CARTE" 



2 rem 

203 

5010 IFCN+1=32THENFORW=lT04000:NEXT:PRINT 

" {CLR} { 

3 GIU' } 


FINE GIOCO - HO VINTO": 

END 



2 rem 

1 04 

5012 PRINT"{GIU'}{RED}{ 4 SPAZl}PREMI 

UN 

TASTO{BLU}"; 







2 rem 

203 

5015 GETAA$:IFAA$=""THEN5015 




2 rem 

59 

5020 CC(CN+1)=CC(1) 




2 rem 

208 

5030 CC(CN+2)=PC(1) 




2 rem 

223 

5040 CN=CN+2 




2 rem 

1 33 

5050 A=0 




2 rem 

1 20 

5060 FORI=2TOCN 




2 rem 

1 58 

5070 A=A+l 




2 rem 

231 
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5080 

CC (A) =CC (I) 


: rem 

66 

5090 

NEXT 


: rem 

1 3 

51 00 

CN = A 


: rem 

21 3 

51 1 0 

A=0 


: rem 

1 1 7 

51 20 

FORI=2TOPN 


: rem 

168 

51 30 

A=A+1 


: rem 

228 

51 40 

PC (A) =PC (I) 


: rem 

89 

51 50 

NEXT 


: rem 

10 

51 60 

PN=A 


: rem 

232 

51 70 

FL= 1 


2 rem 

205 

51 80 

RETURN 


2 rem 

1 74 

6000 

PRINT"{GIU’}HAI VINTO.":POKE36876,250 

: FORTD 

= 1 TOl00 : N 


EXT:POKE36876,0 


2 rem 

25 

6005 

PRINT"ADESSO HAI :"PN+1"CARTE" 


2 rem 

20 

6006 

IFPN+1=32THENFORW=lT04000:NEXT:PRINT" 

{CLR}{ 

3 GIU' } 


FINE GIOCO - HAI VINTO":END 


2 rem 

1 82 

6010 

PC(PN+1)=PC (1) 


2 rem 

247 

6020 

PC(PN+2)=CC(1) 


2 rem 

236 

6030 

PN=PN+2 


2 rem 

1 59 

6040 

A=0 


2 rem 

1 20 

6050 

FORI=2TOPN 


2 rem 

1 71 

6060 

A= A+l 


2 rem 

231 

6070 

PC(A)=PC (I) 


2 rem 

, 92 

6080 

NEXT 


2 rem 

1 3 

6090 

PN=A 


2 rem 

235 

6100 

A=0 


2 rem 

1 1 7 

61 10 

FORI=2TOCN 


2 rem 

1 55 

61 20 

A= A+l 


2 rem 

228 

61 30 

CC (A) =CC (I) 


2 rem 

63 

61 40 

NEXT 


2 rem 

10 

61 50 

CN=A 


2 rem 

21 9 

61 60 

FL=0 


2 rem 

204 

61 70 

RETURN 


2 rem 

1 74 

1 0000 DATA 1,"THOR",100,90,97,68 


2 rem 

1 1 3 

10010 DATA 2,"LA MORTE",99,89,95,100 


2 rem 

84 

10020 DATA 3 , "ZET AN",94,84,91,95 


2 rem 

147 

10030 DATA 4,"IL DIAVOLO",92,82,89,92 


2 rem 

1 82 

10040 DATA 5,"IL GIGANTE",90,80,87,71 


2 rem 

1 60 

10050 DATA 6,"LA BESTIA",87,77,82,98 


2 rem 

99 

10060 DATA 7,"LA MUMMIA",86,76,81,80 


2 rem 

1 03 

10070 DATA 8,"FRANKESTEIN",85,75,82,85 


2 rem 

84 

10080 DATA 9,"IL CICLOPE",84,74,79,74 


2 rem 

1 78 

10090 DATA 10,"L'UOMO LUCERTOLA",83,73,80, 

81 

2 rem 

1 53 

10100 DATA 11,"ZOLTAN",82,72,77,84 


2 rem 

1 9 

10110 DATA 12,"LO IETI",81,71,78,80 


2 rem 

254 

10120 DATA 13,"IL PREDATORE",80,70,75,72 


2 rem 

1 1 3 

10130 DATA 14,"BRUTUS",79,69,74,98 


: rem 

52 

10140 DATA 15,"ALIEN",79,69,76,78 


: rem 

1 86 

10150 DATA 16,"L'UOMO LUPO",78,68,73,70 


: rem 

57 

10160 DATA 17,"IL TERRORE",77,67,72,72 


2 rem 

255 
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i 01 70 

DATA 

18, 

1 01 80 

DATA 

19, 

1 01 90 

DATA 

20 , 

1 0200 

DATA 

21 , 

1 021 0 

DATA 

22 , 

1 0220 

DATA 

23, 

1 0230 

DATA 

24, 

1 0240 

DATA 

25, 

1 0250 

DATA 

26, 

1 0260 

DATA 

27, 

1 0270 

DATA 

28, 

1 0280 

DATA 

29, 

1 0290 

DATA 

30, 

1 0300 

DATA 

31 , 

1 0310 

DATA 

32, 


f 


"IL MOSTRO DEL LAGO",76,66,73,79 

"LO STREGONE",75,65,72,83 

"BARBABLÙ'",75,65,72,68 

"LUCI FERO",74,64,69,74 

"ZOMBIE",73,65,72,83 

"GARGANTUA",72,62,69,85 

"TALON",72,62,67,76 

"IL DRAGO",71,61,68,86 

"IL DEMONE DI FUOCO" , 71., 61 , 66,77 

"IL VAMPIRO",70,60,65,87 

"L'ASSASSINO",70,60,67,74 

"LA STREGA",69,54,66,82 

"IL CARCERIERE",69,59,66,69 

"L'ALLIGATORE",68,58,65,97 

"IL TESCHIO",68,58,63,89 


rem 

i 

92 

rem 


75 

rem 

i 

67 

rem 

i 

52 

rem 


1 

rem 

2 

1 9 

rem 

1 

91 

rem 


69 

rem 

1 

53 

rem 

246 

rem 

1 

06 

rem 

1 

61 

rem 

1 

87 

rem 

1 

59 

rem 

237 



CI6t-P |us /4 


All'arrembassio! 

• 

« . * 


Ti piace l'avventura nei mari del 
Sud? Hai sempre odiato la ferocia 
del Corsaro Nero? Allora in questo 
gioco potrai dare la caccia al Pirata 
Barbablù ed ai suoi cinque vascelli 
recuperando l’oro da lui depreda¬ 
to. 

Hai solo 5 minuti di tempo per indi¬ 
viduare tutte le navi del Pirata e 


farle colare a picco, ma attenzione: 
non appena ti avvicinerai ai suoi 
vascelli per abbordarli o canno¬ 
neggiarli, essi cercheranno a loro 
volta di distruggere la tua nave. 
Inoltre dovrai stare all'erta per non 
incagliarti in uno dei numerosi sco¬ 
gli disseminati qua e la ’. 


100 COLORO,14,0:COLOR4,14,0 :PRINT"{CLR}{WHT}{ 9 GIU'} 

{ 11 SPAZI}{RVS} ALL'ARREMBAGGIO! " :rem 150 

105 FORT=1T02000:NEXTT :rem 113 

110 PRINT"{CLR}{WHT}":PRINT"EHILA’ MARINAIO! VOGLIO SFIDA 
RTI.":PRINT : rem 28 

120 INPUT"COME TI CHIAMIN$:PRINT : rem 71 

130 PRINT"BENE, TU SARAI CAPITAN "N$ :rem 54 

140 PRINT"E IO SARO' CAPITAN BARBABLÙPRINT :rem 246 

150 PRINT"DISPONGO DI UNA FLOTTA DI 5 NAVI" : rem 245 

155 PRINTJ'NASCOSTE IN QUESTE ACQUE PRINT" PRENDILE SE CI 

RIESCI!!" : rem 102 
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160 PRINT:PRINT"IL TUO VASCELLO E' INDICATO CON 'S'" 

:rem 77 

170 PRINT:PRINT"I MIEI VASCELLI SONO INDICATI CON 'P'" 

:rem 242 


180 PRINT:PRINT"GLI SCOGLI SONO INDICATI CON '*'" 


:rem 170 

190 PRINT:PRINT"LA TUA NAVE HA UN EQUIPAGGIO" :rem 234 
200 PRINT"DI 200 UOMINI E 50 CANNONI.":PRINT"{ 2 GIU'} 

{ 13 SPAZI}{RVS}PREMI UN TASTO" :rem 27 

210 GETKEYQ$ :rem 209 

220 PRINT"{CLR}{SU}":PRINT"I TUOI COMANDI SONO:":PRINT 


230 

PRINT" 

N 

— 

DIREZIONE 

NORD " 

235 

PRINT" 

E 

= 

DIREZIONE 

EST " 

240 

PRINT" 

S 

— 

DIREZIONE 

SUD " 

245 

PRINT" 

O 

— 

DIREZIONE 

OVEST" 

250 

PRINT: 

PRINT" F = FUOCO CANNONI 

255 

PRINT" 

A 

s 

ARREMBAGGIO" 


260 PRINT:PRINT"! CANNONI SPARANO SU TUTTI 


:rem 89 
:rem 205 
: rem 130 
: rem 140 
:rem 50 
:rem 52 
: rem 11 
VASCELLI" 


: rem 113 

265 PRINT"A 2 SPAZI DI DISTANZA.":PRINT :rem 72 

270 PRINT"L'ARREMBAGGIO E' POSSIBILE":PRINT"AD UN SOLO SP 
AZIO." :rem 135 

280 PRINT:PRINT"{GIU'}HAI 5 MINUTI DI TEMPO." : rem 96 

290 PRINT"{ 3 GIU'}{ 13 SPAZI}{RVS}PREMI UN TASTO" 

:rem 92 

300 GETKEYQ$ :rem 209 

310 LX=INT(40*RND (8)) :LY=INT(RND{8)* 20)+3 :S = 3072 :M=200:C= 

50 :G=0:K=0 . :rem 70 

320 FORX=0TO4 :rem 24 

330 PX(X)=INT(40*RND(8)) :PY (X)=INT(RND(8)*20 + 3) :M(X)=100: 



C(X)=20 

: rem 

1 22 

340 

IFPX(X)=LXANDPY(X)=LYTHEN330 

: rem 

36 

350 

NEXTX:PRINT"{CLR}":L=S+LX+40*LY:POK£L,19:FORX=0TO24 


1 

: rem 

74 

360 

I = INT(RND(4)*800)+S + 120:IFPEEK(I)< > 32THEN360 

: rem 

241 

370 

POKE1,42:NEXTX 

: rem 

1 1 7 

380 

TI$="000000" 

: rem 

253 

390 

L=S+LX+40*LY:POKEL,19 

: rem 

240 

400 

C$=" ":GETC$ 

: rem 

253 

410 

PRINT"{HOME}UOMINI:" STR$ (M)+"{ 2 SPAZI}CANNONI: 

ii ST 


R$ (C)+"{ 2 SPAZI}ORO:"STR$ (G)+"{ 2 SPAZI}" 

: rem 

92 

420 

FORX=OTO4:D(X)=SQR((PX(X)-LX)t2+(PY(X)-LY)t2 

) 

: rem 

247 

430 

IFC(X)<=0ORM(X)<=0THEN620 

: rem 

194 

440 

IFD(X)>6THENPOKES+PX(X)+PY(X)*40,32:GOTO620 

: rem 

92 

450 

POKES+PX(X)+PY(X)*40,16 

: rem 

53 

460 

IFD(X)>2.9THEN560 

: rem 

1 83 

470 

IFC $ < >"F"THEN 5 3 0 

: rem 

92 

480 

PRINT"{HOME}{GIU'}FUOCO, CAPITAN "N$"!" 

:rem 

16 
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490 

FORCA=1 TOC/5 


: rem 

192 

500 

FORV=8TOOSTEP-1 :VOLV:SOUND3,600,3:NEXTV 


: rem 

27 

51 0 

FORTT=1TO 4 0 :NEXTTT,CA 


: rem 

107 

520 

C(X)=C(X)-INT(RND(7)*.3*C):M(X)=M(X)-INT(RND(8)*. 

2*C) 




: rem 

169 

530 

IFRND(2)>.5THENC=C-INT(RND(7)*. 3*C(X)):] 

M=M 

-INT(RND(8) 


*.1*C(X)) 


:rem 

29 

540 

IFC(X)<=0THENPRINT"{HOME}{GIU'}VASCELLO 

PIRATA AFFOND 


ATO{ 9 SPAZI}":FORT=lT02000:NEXT 


: rem 

78 

550 

IFC(X)<=0THENK=K+1:PRINT"{HOME}{GIU'}{ 

39 

SPAZI}” 





: rem 

75 

560 

IFD(X)>1.5THEN620 


: rem 

1 76 

570 

IFC$="A"THENPRINT"{HOME}{GIU'}ALL'ARREMBAGGIO, CAPITA 


N "N$"!":FORT=1T02000:NEXT 


: rem 

92 

580 

IFC$="A"THENM(X)=M(X)-INT(RND(7)*.5*M) 


: rem 

134 

590 

IFM(X)>0THENM=M-INT(RND(7)*.1*M(X)) 


: rem 

21 

600 

IFM(X)<=0THENPRINT"{HOME}{GIU'}VASCELLO 

PIRATA CATTUR 


ATO{ 10 SPAZI}":FORT=1T02000:NEXT 


: rem 

1 22 

61 0 

IFM(X)<=0THENPRINT"{HOME}{GIU*}{ 39 SPAZI} 

” :rem 

233 

61 5 

IFM(X)<=0THENK=K+1:G=G+INT(RND(8)*5000) 


:rem 

240 

620 

IFC (X)< = 0ORM(X)< = 0THENPOKES+PX(X)+PY(X) 

*40 

r 3 2 





: rem 

197 

630 

NEXTX:IFK=5THEN730 


: rem 

1 27 

640 

PRINT"{HOME}{GIU'}{ 39 SPAZI}" 


:rem 

1 43 

650 

IFM<=0ORC<=0THEN790 


: rem 

1 24 

660 

POKEL,32 


: rem 

1 68 

665 

IFC$="N"ANDLY>2THENLY=LY-1 


: rem 

98 

670 

IFC$="S"ANDLY<22THENLY=LY+1 


: rem 

1 45 

680 

IFC$ = "E"ANDLX< 39THENLX=LX+1 


: rem 

1 37 

690 

IFC$="0"ANDLX>0THENLX=LX- 1 


: rem 

92 

700 

IFPEEK(S+LX+40*LY)=42THEN840 


: rem 

1 38 

710 

IFTI>18000THEN890 


: rem 

203 

720 

GOTO390 


: rem 

1 10 

730 

PRINT"{SU}TUTTI I PIRATI DISTRUTTI" 


: rem 

116 

740 

FORT=1TO3 0 0 0 :NEXTT 


: rem 

1 1 9 

750 

PRINT"{CLR}" 


: rem 

0 

760 

PRINTTAB(8)"TUTTI I PIRATI DISTRUTTI" 


: rem 

70 

770 

PRINT:PRINT"HAI"C'MONETE D'ORO,":PRINT" 

CAPITAN "N$" 




: rem 

209 

780 

GOTO940 


: rem 

117 

790 

PRINT"{SU}SEI STATO AFFONDATO" 


: rem 

0 

800 

FORT=1TO 3 0 00 :NEXTT 


: rem 

116 

810 

PRINT"{CLR}" 


: rem 

253 

820 

PRINT"SEI STATO SCONFITTO, CAPITAN "N$" 

Il 

• 

: rem 

1 60 

830 

GOTO940 


: rem 

113 

840 

PRINT"{SU}TI SEI INCAGLIATO" 


: rem 

87 

850 

FORT=1TO 3 0 0 0 :NEXTT 


: rem 

1 21 

860 

PRINT"{CLR}" 


: rem 

2 

870 

PRINT"TI SEI INCAGLIATO, CAPITAN "N$" 


: rem 

21 7 

880 

GOTO940 


: rem 

118 
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890 PRINT"{SU}IL TEMPO E' SCADUTO" 

900 FORT=lT03000:NEXTT 
910 PRINT"{CLR}" 

920 PRINTTAB(10)"IL TEMPO E' SCADUTO. 
930 PRINT:PRINT"HAI"G"MONETE D’ORO,": 


: rem 156 
: rem 1 1 7 
:rem 254 
" : rem 188 

PRINT"CAPITAN "N$"." 


:rem 207 

940 POKE239,0:PRINT:PRINTTAB(10)"{GIU'}GIOCHI ANCORA (S/N 
)?" : rem 249 

950 GETKEYQS:IFQ$ = "S"THEN310 : rem 177 

970 END : rem 119 



Ecco un gioco ad alta velocità per 
due persone che vi entusiasmerà 
sicuramente. Bisogna costruire un 
muro davanti all'avversario, obbli¬ 
gandolo ad andare a sbatterci con¬ 
tro. Per far ciò si ha a disposizione 
un tracciante che disegna una linea 
sullo schermo: quando uno dei 
due giocatori è costretto a toccare 


la linea avversaria o la propria per¬ 
de la mano. 

Per spostare il tracciante il giocato¬ 
re che parte da sinistra deve usare 
i tasti [QJ (ruota di 90 gradi a sini¬ 
stra) e [Z] (90 gradi a destra); il 
giocatore di destra invece usa ri¬ 
spettivamente i tasti [/] e [+]. 


10 COLORO,2,5:COLOR4,15:VOL8:P1=0:P2=0 :rem 2 

20 X$="{ 15 DES}":DIMCH(1,1):CH(1,0)=64:CH(0,1)=93:DIMCX( 
3),CY(3) : rem 165 

30 CX(0)=109:CX(1)=12 5 :CX ( 2) =11 0 :CX ( 3) = 11 2 :rem 211 

40 CY(0)=112:CY(1)=109:CY(2)=125:CY(3)=110 :rem 216 

50 B$ = " [< 34 l>]« : rem 208 

60 L$="{ 2 SPAZI}{RVS}[<K>]{OFF}{ 34 SPAZl}[<K>] 

{ 2 SPAZI}" : rem 61 

70 COLORI ,16,4: PRINT" {CLR} { 4 GIU’}{ 3 SPAZI}[ <R> ] _*I 
[<R>]{ 3 SPAZI }U* I U*I UCI UCI [<A>][<R>][<S>] UCI 
{ 2 SPAZI}B" : rem 138 

80 PRINT"{ 3 SPAZI}[<Q>]C[<W>] B{ 3 SPAZl}B B B 

{ 3 SPAZI}B{ 3 SPAZI}[<Q>]C[<W>]{ 2 SPAZITbT 2 SPAZI} 

B B{ 2 SPAZI}B" : rem 77 

90 PRINT"{ 3 SPAZI}[<E>]CK [<E>]CK JCK JCK JCK [<E>] 

[<E>] { 2 SPAZI}[<E>]{ 2 SPAZITjCKI - 2 SPAZTTW'rrem 2 


17 
















100 COLORI ,9,4:PRINT:PRINT:PRINT"{ 15 SPAZI}CONTROLLI" . 

:rem 85 

110 PRINT:PRINT"{ 10 SPAZI}GIOCATORE 1{ 3 SPAZI}GIOCATORE 



2" 



: rem 

1 99 

1 20 

PRINT:PRINT" 

SINISTRA:{ 

4 SPAZI}<Q>{ 

11 SPAZI}<+> M 
: rem 

66 

1 30 

PRINT:PRINT" 

DESTRA:{ 6 

SPAZI}< Z >{ 11 

SPAZI }</>*' 

: rem 

1 66 


140 COLORI,7,4:PRINT:PRINT:PRINT:PRINT"{ 4 SPAZI}PREMERE 
<RETURN> PER CONTINUARE" :rem 177 

150 PRINT:PRINT"{ 13 SPAZI}<E> PER FINIRE" : rem 145 

160 GETA$:IFA$ = ""THENl60 : rem 81 

170 IFA$="E"THENPRINT"{CLR}{ 2 GIU'}{ 2 DES}FINEEND 

:rem 254 

180 IFASC(A$)<>13THEN160 :rem 89 

190 COLORI,3,3:PRINT"{CLR}{ 15 SPAZI}BLOCCATO!":PRINT:PRI 
NT:PRINT"{ 2 SPAZI}[<D>]";B$;"[<F>]" :rem 46 

200 COLORI,3,3:FORI=1TO20:PRINTL$:NEXT:PRINT"{ 2 SPAZI} 

[<C>]{RVS}";B$;"{OFF}[<V>]"; :rem 17 

210 COLORI,8:PRINT"{HOME}{GIU'}{ 3 SPAZI{GIOCATORE 1" 

:r em 164 

220 COLORI,15,2:PRINT"{HOME}{GIU'}{ 23 DES}GIOCATORE 2" 

:rem 205 

2 30 XI =2:X2 = 37:Yl=12:Y2 = l4:Al=1:A2 = -1:Bl=0 :B2 = 0: Di=0 :D2 = 2 

:S=0 :rem 143 

240 COLORI,2:PRINT"{HOME}{GIU'}{ 15 DES}{ 5 SPAZI} 

{ 5 SIN}";P1 ;"{ 16 DES}{ 5 SPAZI}{ 4 SIN}";P2 

: rem 211 

250 GETA$:C1=CH(ABS(Al),ABS(Bl)):C2=CH(ABS(A2),ABS(B2)):S 
=S + 1:IFS=2THENS=0 :rem 30 

260 Xl=Xl+Al:X2=X2+A2:Yl=Yl+Bl:Y2=Y2+B2 :rem 2 

2 70 IFA$ = "Q"THENC = Bl :Bl=-Al : Al=C:Di=INT(((Di+1)/4-INT((Di 
+ 1)/4))*4):C1=CX(Di) : rem 204 

280 IFA$="/"THENC=B2:B2=-A2:A2=C:D2=1NT(((D2+1)/4-INT((D2 
+ 1 )/4) ) *4) :C2=CX(D2) :rem 180 

290 IFA$ = "Z"THENC = -Bl :Bl=Al : Al=C:Di=INT((ABS((Dl+3)/4)-IN 
T(ABS((Dl+3)/4)))*4):Cl=CY(Di) :rem 42 

300 IFA$ = "+"THENC = -B2:B2=A2:A2=C:D2 = INT((ABS((D2+3)/4)-IN 
T(ABS((D2 + 3)/4)))*4):C2=CY(D2) :rem 252 

310 IFPEEK(3072+40*Yl+Xl)<>32THENAl=0:Bl=0:P2=P2+1:W=2:X= 


XI :Y=Y1:GOSUB400:GOTOl60 :rem 68 

320 IFPEEK ( 3072 + 40*Y2+X2)O32THENA2 = 0:B2 = 0: Pi =P1+1 :W=1 :X= 


330 

X2:Y=Y2:GOSUB4 00:GOTOl 60 

GOSUB350 

: rem 

: rem 

72 
1 74 

340 

GOTO250 

2 rem 

103 

350 

POKE3072+40*Yl+Xl ,Cl :POKE2048+40*Yl +X1 ,119 

: rem 

31 

360 

POKE3072+40*Y2+X2,C2:POKE2048+40*Y2+X2,46 

: rem 

244 

370 

IFS=0THENSOUNDl,400+20*Dl,5 

: rem 

31 

380 

IFS=1THENSOUNDl,320+20*D2,5 

2 rem 

35 

390 

RETURN 

2 rem 

1 24 
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400 SOUND3,850,20:SOUND3,800,100 :rem 30 

410 FORI = 1TOl0 :POKE3072 + 40*Y+X,102:POKE2048 + 40*Y+X,96 :FOR 
J=1TO 2 0 :NEXTJ :rem 200 

420 POKE3072 + 40*Y+X,230:POKE2048 + 40*Y+X,44:FORJ = 1TO20:NEX 

TJ :rem 232 

430 NEXTI : rem 31 

440 IFW=1THENCOLORl ,8 :PRINT"{RVS}{HOME}{GIU'}{ 3 DES}GIOC 
ATORE 1" " : rem 183 

450 IFW = 2THENCOLOR1 ,15,2:PRINT"{RVS}{HOME}{GIU'} 

{ 23 DES}GIOCATORE 2{OFF}" :rem 250 

460 COLORI ,2 :PRINT"{HOME}{GIU'}{ 15 DES}{ 5 SPAZI} 

{ 5 SIN}";P1 ;"{ 16 DES}{ 5 SPAZl}{ 4 SIN}";P2 

: rem 215 

470 RETURN :rem 123 



Chi ha familiarità con i dadi sicura¬ 
mente conosce questo gioco, noto 
con il nome di Yahtzee, Yamin e 
tanti altri. I giocatori possono esse¬ 
re da 2 a 13; ognuno ha a disposi¬ 
zione cinque dadi, che può lancia¬ 
re al massimo tre volte in 7 3 turni 
successivi. Lo scopo è di totalizza¬ 
re il massimo piunteggio realizzan¬ 
do le seguenti combinazioni, che 
possono essere utilizzate una sola 
volta nel corso del gioco: 3 dadi 
uguali, 4 dadi uguali, 5 dadi uguali 
(Yahtzee), 4 dadi in scala, 5 dadi 
in scala, Full (3 dadi di un valore e 
2 di un altro) e infine Chance, che 
è il caso disperato in cui nessuna 
combinazione riesce. 

All'inizio il programma chiede il 
numero e i nomi dei partecipanti, 
successivamente compare sul vi¬ 
deo una tabella contenente l’elen¬ 
co delle combinazioni possibili, 


ognuna contrassegnata da una let¬ 
tera e con accanto lo spazio per i 
punteggi. Oltre alle 7 già elencate, 
vi sono altre 6 combinazioni (le 
prime dall'alto), che riguardano 
l’uscita di almeno 2 dadi uguali. Il 
punteggio ottenuto con esse è da¬ 
to dalla somma dei dadi uguali. 
Abbiamo poi nell’ordine: 

3 uguali: si sommano i 3 dadi ugua¬ 
li più gli altri 2 ; 

4 uguali: anche qui si sommano tut¬ 
ti i 5 dadi; 

4/5 di scala: vale 30 punti; 

Scala: 40 punti; 

Full: 25 punti; 

Yahtzee: 50 punti; 

Chance: quando non è uscita nes¬ 
suna combinazione, oppure ne è 
uscita una già conteggiata, si può 
attribuire a questa voce la somma 
dei 5 dadi. 

Nel caso fortunatissimo che si rea- 
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lizzi un secondo Yahtzee, esso 
frutta ben 100 punti, che vanno se¬ 
gnati alla voce corrispondente 
(l'ultima). Eventuali altri Yahtzee 
vanno conteggiati nelle voci inuti¬ 
lizzate. 

Se non sottiene nessuna delle com¬ 
binazioni ancora disponibili e la 
Chance è già stata sfruttata, si deve 
annullare una delle voci libere as¬ 
segnandole un punteggio pari a 
0.1; successivamente tale combi¬ 
nazione non potrà più essere uti¬ 
lizzata. 3 o 4 dadi uguali possono 
essere usati, oltre che per le rispet¬ 
tive combinazioni, anche nelle pri¬ 
me 6 voci: la scelta dipende dal 
giocatore. L'importanza di queste 6 
voci è data dal fatto che, se il loro 
totale è di almeno 63 punti, fruttano 
un "bonus" di altri 35 punti. 


Il gioco è interamente comandato 
dalla tastiera. Per comunicare al 
computer quali dadi si desidera ri¬ 
lanciare, si devono digitare i nume¬ 
ri corrispondenti (i dadi sono infat¬ 
ti numerati da 1 a 5); ad esempio, 
per lanciare il secondo, il terzo e il 
quinto si imposta 235. Uno zero 
segnala invece che non si vuole 
gettare nessun dado. Terminato il 
lancio, si introduce il risultato digi¬ 
tando, senza barare, il punteggio 
totalizzato seguito dalla lettera 
corrispondente alla voce scelta 
(ad esempio 16D). A questo punto 
il gioco passa al concorrente suc¬ 
cessivo. Al termine dei 13 turni chi 
ha realizzato il secondo Yahtzee 
ha diritto a giocare ancora una ma¬ 
no,- vengono infine mostrati i risul¬ 
tati finali. Buon divertimento! 


1 

REM 

************* ******************* 

: rem 

85 

2 

REM 

* * 

* * 

: rem 

190 

3 

REM 

* * 

YAHTZEE ** 

: rem 

21 7 

4 

REM 

* * 

* * 

: rem 

1 92 

5 

REM 

* * 

GIOCO PER COMMODORE 64 ** 

: rem 

40 

6 

REM 

* * 

* * 

: rem 

1 94 

7 

REM 

* * 

DI MICHELE NANNIPIERI ** 

: rem 

52 

8 

REM 

* * 

* * 

: rem 

196 

9 

REM 

******************************** 

: rem 

93 

1 0 

REM 

i * 

SIGLA * 

: rem 

9 

20 

60 

PRINT 1 * 

PRINT'* 

{CLR}{BLK}":POKE53 2 80,0:POKE53281 ,0 
{ 5 GIU'}Q{ 3 SPAZI}Q{ 2 SPAZl}Q{ 3 

: rem 
SPAZI}Q 

229 


{ 3 SPAZI}Q{SPAZI}{ 5 Q}{SPAZI}{ 5 Q}ISPAZl}{ 5 Q} 
{SPAZI} { 5 QHSIN}" : rem 242 

70 PRINT"{SU}QT 3 SPAZI}Q{SPAZI}Q{SPAZl}Q{ 2 SPAZl}Q 


{ 3 SPAZI}Q{ 3 SPAZI}Q { 7 SPAZI}Q{SPAZI}Q{ 5 SPAZl}Q" 

:rem 51 

80 PRINT"{SPAZI}Q{SPAZI}Q{SPAZI}Q{ 3 SPAZI}Q{SPAZI}Q 
{ 3 SPAZI}Q{ 3 SPAZI}Q { 6 SPAZl}Q{ 2 SPAZljQ 
{ 5 SPAZI}Q" : rem 163 

90 PRINT"{ 2 SPAZI}Q{ 2 SPAZl}{ 5 Q}{SPAZl}{ 5 Q} 

{ 3 SPAZI}Q{ 5 SPAZI }Q{ 3 SPAZlTt 3 Q}{ 3 SPAZI} 

{ 3 Q}" : rem 157 

100 PRINT"{ 2 SPAZI}Q{ 2 SPAZI}Q{ 3 SPAZI}Q{SPAZI}Q 
{ 3 SPAZI}Q{ 3 SPAZI}Q{ 4 SPAZl}Q{ 4 SPAZljQ 
{ 5 SPAZI}Q" : rem 155 


20 



110 PRINT"{ 2 SPAZI}Q{ 2 SPAZl}Q{ 3 SPAZI}Q{SPAZI}Q 
{ 3 SPAZI}Q{ 3 SPAZI}Q{ 3 SPAZl}Q{ 5 SPAZl}Q 
{ 5 SPAZI}Q" : rem 156 

120 PRINT"{ 2 SPAZI}Q{ 2 SPAZl}Q{ 3 SPAZI}Q{SPAZI}Q 

{ 3 SPAZI} Q { 3 SPAZI}Q{ 3 SPAZl}{ 5 Q}fsPAZl}{ 5 Q} 



{SPAZI}{ 5 Q}{SIN}" 

: rem 

6 

1 40 

A*21 :B=14 :C=19 :D=12 :S = 55 2 96 :POKE(S + 2 0 + 4 0*1 3) ,1 

: rem 

1 91 

1 50 

FORY=D+lTOB:POKE(S+A+40*Y) ,1 :NEXT 

: rem 

249 

1 60 

FORX = ATOCSTEP-1 :POKE(S+X+40*B) ,1 :NEXT 

: rem 

53 

1 70 

FORY = BTODSTEP-1 :POKE(S+C + 40*Y) ,1 :NEXT 

: rem 

59 

1 80 

FORX=CTOA+l :POKE(S+X+40*D) ,1 :NEXT 

: rem 

251 

1 90 

A=A+1 :B = B + 1 :C=C-1 :D=D-1 

: rem 

196 

200 

IFD<0THEND=0 

: rem 

1 77 

210 

IFB>24THENB=24 

: rem 

28 

220 

IFC< 0THEN2 3 5 

: rem 

1 55 

230 

GOTO!50 

: rem 

1 00 

235 

PRINTTAB(3) "{ 4 GIU' } [ <7>]IL Piu' COMPLETO 

GIOCO 

CON 


I DADI" 

: rem 

93 

250 

FORK=1T06000:NEXT: DIMA(4) :DIMY(12,14) 

: rem 

165 

255 

REM * INSERIMENTO DATI GIOCATORI * 

: rem 

228 

265 

PRINT"{CLR}{BLK}" 

: rem 

1 45 

270 

POKE53 2 81 ,5:POKE53280,5:POKEl98,0 :PRINTTAB{5)"{GIU' }N 


UMERO DEI GIOCATORI 

: rem 

92 

275 

INPUTN:IFN< 20RN>13THEN265 

: rem 

94 

280 

PRINTTAB(5)"{GIU'}GIOCATORE 1 ";:INPUTPl$: 

PRINTTAB(5) 


"{GIU'{GIOCATORE 2 ";:INPUTP2$ 

: rem 

68 


290 IFN>2THENPRINTTAB(5)"{GIU'}GIOCATORE 3 "; :INPUTP3S ■ 

: rem 210 

300 IFN>3THENPRINTTAB(5)"{GIU 1 }GIOCATORE 4 ";:INPUTP4$ 

:rem 205 

303 IFN>4THENPRINTTAB(5)"GIOCATORE 5 :"; :INPUTP5$:rem 252 

306 IFN>5THENPRINTTAB(5)"GIOCATORE 6 "; :INPUTP 6 $: rem 200 

309 IFN> 6 THENPRINTTAB(5)"GIOCATORE 7 "; :INPUTP7$: rem 206 

312 IFN>7THENPRINTTAB(5)"GIOCATORE 8 "; :INPUTP 8 ?: rem 203 

315 IFN> 8 THENPRINTTAB(5)"GIOCATORE 9 "; :INPUTP9$: rem 209 

318 IFN>9THENPRINTTAB(5)"GIOCATORE 10 "; :INPUTPA$ 

: rem 5 

321 IFN>1OTHENPRINTTAB(5)"GIOCATORE 11 ";:INPUTPB$ 

:rem 41 

324 IFN>11THENPRINTTAB(5)"GIOCATORE 12 ";:INPUTPC$ 

:rem 47 

327 IFN>12THENPRINTTAB(5)"GIOCATORE 13 ";:INPUTPD$ 






: rem 

53 

335 

REM * DISEGNO QUADRO GIOCO * 

: rem 

25 

340 

CT=0:Z=0:P$=Pl$ 



: rem 

44 

360 

PRINT"{CLR}{SU}A 

B 1 B { 

6 SPAZI}";Y(Z,0) 

: rem 

31 

370 

PRINT"B B 2 B{ 6 

SPAZI}" 

;y(z, 1 ) 

: rem 

255 

380 

PRINT"C B 3 B{ 6 

SPAZI}" 

;Y(Z,2) 

: rem 

3 

390 

PRINT"D B 4 B{ 6 

SPAZI}" 

;Y(Z,3) 

: rem 

7 
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400 PRINT"E B 5 B{ 6 SPAZI}";Y(Z,4) :rem 2 

410 PRINT"F B 6 B{ 6 SPAZI}";Y(Z,5) :rem 6 

420 Y(Z f 1 4)=Y(Z,0)+Y(Z,1)+Y (Z,2)+Y(Z,3)+Y(Z,4)+Y(Z,5) 

:rem 142 

430 PRINT"{GIU'}TOTALE{ 7 SPAZI}";Y(Z,14) :rem 18 

440 PRINT"BONUS>=63{ 2 SPAZl}35" • :rem 60 

450 PRINT"{ 16 £}" :rem 154 

460 PRINT"G B3UGUALI{ 3 SPAZI}";Y(Z,6) :rem 15 

470 PRINT"H B4UGUALI{ 3 SPAZI}";Y(Z,7) :rem 19 

480 PRINT"{GIU'}I B4/5SCALA30"; Y (Z,8) :rem 139 

490 PRINT"{GIU'}L B5/5SCALA40";Y(Z,9) *:rem 146 

500 PRINT"{GIU'}M BFULL{ 4 SPAZI}25";Y(Z,10) :rem 236 

510 PRINT"{GIU')N BYAHTZEE 50";Y(Z,11) :rem 212 

520 PRINT"{GIU'}0 BCHANCE{ 4 SPAZI}";Y(Z,12) :rem 250 

530 PRINT"{GIU'}P B2tfAHT• 100";Y(Z,13) : rem 130 

540 PRINT"{HOME} " :PRINTTAB(24)P$ :rem 70 

550 PRINTTAB(21)"{GIU 1 }1{ 3 SPAZl}2{ 3 SPAZl}3{ 3 SPAZI} 

4{ 3 SPAZI}5" : rem 6 

560 PRINTTAB(17)"T{GIU'}{SIN}Il{GIU'}( 2 SIN}r{GIU'}{SIN} 
0{GIU'}{SIN}{GIU'}T{GIU'}{SIN}I2{GIU'}{ 2 SIN}R{GIU'} 
{SIN}0{GIU'}{SIN}{GIU'}T{GIU'}{SIN}I3{GIU'}{ 2 SIN}R 
{GIU '}{SIN}0" : rem 191 

570 PRINTTAB(20)"{ 4 GIU'JPREMI SPAZIO{GIU'}{ 4 SIN}PER T 
IRARE":POKEl98,0 :rem 40 

575 GETC$ :rem 232 

580 IFC$=CHR$(32)THEN595 :rem 89 

590 IFC$OCHR$ (32) THEN575 :rem 149 

595 PRINTTAB(20)"{ 2 SU}{ 12 SPAZI}{GIU'}{ 4 SIN} 

{ 10 SPAZI}" :rem 165 

600 FORX= 20TO38:F0RY=4T06:POKE(1 024+X+40*Y) ,160 :POKE(5529 
6+X+40*Y),1:NEXT :rem 79 

610 FORY = 9TOl1 :POKE(1 024+X+40*Y) ,160 :POKE(55296+X+40*Y) ,1 
:NEXT : rem 91 

620 FORY=14TOl6 :POKE(1 024+X+40*Y) ,160 :POKE(55296+X+40*Y) , 
1:NEXT:NEXT :rem 6 

630 FORY=4TOl6:POKE(552 96 + 23 + 40*Y) ,5:POKE(55296 + 27 + 40*Y) , 
5 :rem 232 

640 POKE(55296+31+40*Y) ,5 :POKE(55296+35+40*Y) ,5 :NEXT 

:rem 107 

650 X=20:PRINT"{HOME}{ 3 GIU'}" :rem 227 

660 A(0)=INT(6*RND(1))+1 :rem 249 

670 A(1)=INT(6*RND(1))+1 :rem 251 

680 A(2)=INT(6*RND(1))+1 :rem 253 

690 A(3)=INT(6*RND(1))+1 :rem 255 

700 A(4)=INT(6*RND(1))+1 :rem 248 

710 ONA(0)GOSUB810,820,830,840,850,860 :rem 248 

720 X=X+4 : rem 229 

730 ONA(1)GOSUB 810,820,830,840,850,860 :rem 251 

740 X=X+4 :rem 231 

750 ONA(2)GOSUB 810,820,830,840,850,860 :rem 254 
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760 
770 
780 
790 
800 
81 0 
820 
830 
840 

850 

860 


X=X+4 

ONA(3)GOSUB 810,820,830,840,850,860 
X=X+4 

ONA(4)GOSUB 810,820,830,840,850,860 
GOTO870 


ETURN 


{ 3 SU}": RETURN 


: rem 

233 

: rem 

1 

: rem 

235 

: rem 

4 

: rem 

1 1 2 

": RETURN:rem 

66 

: RETURN :rem 

153 

RETURN : rem 

78 

3 SIN}Q{ 3 SU} 

" :R 

: rem 

1 77 

3 SIN}Q{DES}Q 


2 rem 

1 36 

3 Q}{ 3 SU}"2 

RET 

2 rem 

1 55 


URN 

870 1 = 1 :PRINT"{HOME}" 

880 FORX=OTOl9 :PRINT:NEXT:PRINTTAB(20)"QUALI DADI" 


: rem 116 


: rem 

890 PRINTTAB(19)"{GIU'}VUOI RITIRARE"INPUTC$ :rem 
900 PRINTTAB(20)"{ 3 SU}{ 10 SPAZI}":PRINTTAB(19)"{GIU 
{ 20 SPAZI}{ 3 SU}" : rem 

910 ONVAL( MID$(C$,1,1))GOTO94 0,9 60,980,1 000,1 0 20 : rem 
920 IFMID$(C$,1,1)="0"THENl300 :rem 

930 GOTOl040 


1 88 
38 
} 

8 

61 
86 

.rem 154 

940 A(0)=INT(6*RND(1) )+1 :PRINT"{HOME}":FORH = 0TO7:PRINT:NE 
XT:X=20 : rem 57 

945 ONA(0)GOSUB810,820,830,840,850,860 :rem 2 

950 1=1+1:GOT0910 :rem 214 

960 A(1)=INT(6*RND(1) )+1 :PRINT"{HOME}":FORH = 0TO7:PRINT: NE 
XT:X=24 : rem 64 

965 ONA(lJGOSUB810,820,830,840,850,860 :rem 5 

970 1=1+1:GOT0910 :rem 216 

980 A(2)=INT(6*RND(1) )+1 :PRINT"{HOME}":FORH = 0TO7:PRINT:NE 
XT:X=28 : rem 71 

985 ONA(2)GOSUB810,820,830,840,850,860 :rem 8 

990 1=1+1:GOT0910 :rem 218 

1 000 A(3)=INT(6*RND(1))+1 :PRINT"{HOME}":FORH=0TO7:PRINT:N 
EXT:X=32 :rem 99 

1005 ONA(3)GOSUB810,820,830,840,850,860 :rem 41 

1010 1=1+1:GOT0910 :rem 250 

1020 A (4)=INT(6*RND(1) )+1 :PRINT"{HOME}":FORH = 0TO7:PRINT:N 
EXT:X=36 :rem 106 

1025 ONA(4)GOSUB810,820,830,840,850,860 :rem 44 

1030 1=1+1:GOT0910 :rem 252 

1040 1 = 1 :PRINT"{HOME}":FORH = OTOl9 :PRINT:NEXT:PRINTTAB(20) 
"QUALI DADI" : rem 224 

1050 PRINTTAB(19)"{GIU'}VUOI RITIRARE";:INPUTBS :rem 74 

1060 PRINTTAB(20)"{ 3 SU}{ 11 SPAZI}" :rem 213 

1070 PRINTTAB(19)"{GIU'}{ 20 SPAZI}{ 3 SU}" :rem 239 

1080 ONVAL(MID$(B$,I,1))GOTOl110,1140,1170,1200,1230 

:rem 229 
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1 090 
1110 

1 1 20 
1 1 30 
1 1 40 


1 1 50 
1 1 60 
1170 

1 1 80 
1 1 90 
1 200 

121 0 
1 220 
1 230 

1 240 
1 250 
1 300 

1 310 
1 320 
1 330 
1 340 
1 350 
1 360 

1 370 

1 380 

1 390 

1 400 

1 41 0 

1420 

1 430 

1440 

1450 

1 460 


GOTOl 300 : rem 199 
A(0)=INT(6*RND(1))+1 :PRINT"{HOME}":FORH = OTOl2 SPRINT: 
NEXT:X=20 srem 139 
ONA(0)GOSUB810,820,830,840,850,860 srem 36 
1=1+1sGOTOl080 srem 44 
A(1)=INT(6*RND(1))+1 :PRINT"{HOME}":FORH = OTOl2 SPRINT: 


NEXT:X=24 srem 147 
ONA(1)GOSUB810,820,830,840,850,860 srem 40 
1=1+1sGOTOl080 srem 47 
A(2)=INT(6*RND(1))+1 :PRINT"{HOME}":FORH = OTOl2 :PRINT: 
NEXT:X=28 srem 155 
ONA(2)GOSUB810,820,830,840,850,860 srem 44 
1=1+1sGOTOl080 srem 50 
A(3)=INT(6*RND(1))+1 :PRINT"{HOME:FORH = OTOl2 SPRINT: 
NEXT:X=32 srem 145 
ONA(3)GOSUB810,820,830,840,850,860 srem 39 
1=1+1sGOTOl080 srem 44 
A(4)=INT(6*RND(1))+1 :PRINT"{HOMEFORH=OTOl2 SPRINT: 


NEXT:X=36 

ONA(4)GOSUB810,820,830,840,850,860 
1=1+1sGOTOl080 


rem 

rem 

rem 


1 53 
43 
47 


PRINT"{HOME}":FORH=OTOl7:PRINT:NEXT:PRINTTAB(18)"SCR 


IVI IL PUNTEGGIO" 

PRINTTAB(18)"OTTENUTO,SEGUITO DAL" 
PRINTTAB(18)"CARATTERE INDICANTE" 
PRINTTAB(18)"LA VOCE SCELTA" 
PRINTTAB(21)" ";:INPUTA$ 

PRINT"{HOME}":D$=RIGHT$(A$,l) 


: rem 
: rem 
: rem 
: rem 
srem 
: rem 


1 24 
1 98 
82 
1 59 
1 42 
65 


IFD $ = "A"THENY(Z,0)=VAL(A$) :PRINTTAB(13)"{SU}"Y(Z,0) 

: rem 112 


IFD$="B"THENY(Z,1)=VAL(A$):PRINTTAB(13)Y(Z,l) 

srem 159 

IFD$ = "C"THENY(Z,2)=VAL(A$) :PRINTTAB(13)"{GIU'}"Y(Z,2 
) srem 248 

IFD$="D"THENY(Z,3)=VAL(A$):PRINTTAB(13)"{ 2 GIU'}"Y( 
Z, 3) : rem 13 

IFD$ = "E"THENY(Z,4)=VAL(A$) :FORH=0TO2:PRINT :NEXT:PRIN 
TTAB(13)Y(Z,4) srem 141 

IFD$="F"THENY(Z,5)=VAL(A$):FORH=0TO3:PRINT:NEXT:PRIN 
TTAB(13)Y(Z,5) srem 146 

IFD$ = "G"THENY(Z,6)=VAL(A$) :FORH= 0TO8:PRINT :NEXT:PRIN 
TTAB(13)Y(Z,6) srem 155 

IFD$="H"THENY(Z,7)=VAL(A$):FORH=0TO9:PRINT:NEXT:PRIN 
TTAB(13)Y(Z,7) srem 160 

IFD$ = "I"THENY(Z,8)=VAL(A$) :FORH=0TOl1 :PRINT:NEXT:PRI 
NTTAB(13)Y(Z,8) srem 205 

IFD$ = "L"THENY(Z,9)=VAL(A$) :FORH=OTOl3 :PRINT:NEXT:PRI 
NTTAB(13)Y(Z,9) srem 213 

IFD$ = "M"THENY(Z,10)=VAL(A$) :FORH=OTOl5 :PRINT:NEXT:PR 
I NTTAB (13)Y(Z,10) srem 41 
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1470 

IFD$ = "N"THENY(Z,11)=VAL(A$) :FORH = OTOl7 :PRINT:NEXT:PR 


INTTAB (1 3) Y (Z , 1 1 ) 

: rem 

47 

1 480 

IFD$ = "0"THENY(Z,12)=VAL(A$) :FORH = OTOl9 :PRINT:NEXT:PR 


INTTAB(13)Y(Z, 1 2) 

: rem 

53 

1 490 

IFD$="P"THENY(Z,l3)=VAL(A$):FORH=0TO21:PRINT:NEXT:PR 


INTTAB (1 3) Y (Z , 1 3) 

: rem 

50 

1 500 

PRINT"{HOME}":FORH=OTOl7 :PRINT:NEXT:PRINTTAB(18) 

II 


{ 19 SPAZI}" 

: rem 

103 

1 51 0 

PRINTTAB(18)"{ 20 SPAZI}" 

: rem 

41 

1 520 

PRINTTAB(18)"{ 20 SPAZI}" 

: rem 

42 

1 530 

PRINTTAB(18)"{ 20 SPAZI}" 

: rem 

43 

1 540 

PRINTTAB(21)"{ 7 SPAZI}" 

: rem 

38 

1 550 

PRINTTAB(20)"{ 3 SU}PREMI SPAZIO PER UN{ 2 

GIU* } 



{ 15 SIN}ALTRO GIOCATORE" 

: rem 

42 

1 555 

POKEl98,0 

: rem 

253 

1 560 

GETC$ 

: rem 

19 

1 570 

IFC$=CHR$(32)THEN1 585 

: rem 

1 85 

1 580 

IFC$OCHR$ (32) THENl 560 

: rem 

240 

1 585 

IFCT>=13THEN1800 

: rem 

208 

1 590 

IFZ=0THENZ=1:P$=P2$:GOTO360 

: rem 

1 85 

1 600 

IFN=2THENl800 

: rem 

1 1 

1 61 0 

IFZ=1THENZ=2:P$=P3$:GOTO360 

: rem 

1 81 

1 620 

IFN=3THENl800 

: rem 

1 4 

1630 

IFZ=2THENZ=3:P$=P4$:GOTO360 

: rem 

1 86 

1 640 

IFN=4THEN1800 

: rem 

1 7 

1 650 

IFZ=3THENZ=4:P$=P5$:GOTO360 

: rem 

191 

1 660 

IFN=5THENl800 

: rem 

20 

1 670 

IFZ = 4THENZ = 5:P$ = P6$:GOT03 60 

: rem 

196 

1 680 

IFN=6THENl800 

: rem 

23 

1 690 

IFZ=5THENZ=6:P$=P7$:GOTO360 

: rem 

201 

1 700 

IFN= 7THEN1800 

: rem 

1 7 

1 71 0 

IFZ=6THENZ=7:P$=P8$:GOTO360 

: rem 

197 

1 720 

IFN=8THEN1800 

: rem 

20 

1730 

IFZ=7THENZ=8:P$=P9$:GOTO360 

: rem 

202 

1 740 

IFN=9THENl800 

: rem 

23 

1 750 

IFZ=8THENZ=9:P$=PA$:GOTO360 

: rem 

21 4 

1 760 

IFN=1OTHENl800 

: rem 

65 

1 765 

IFZ = 9THENZ = 10:P$=PB$:GOT03 60 

: rem 

6 

1770 

IFN=11THENl800 

: rem 

67 

1 775 

IFZ = 10THENZ = 11 :P$ = PC$:GOTO360 

: rem 

49 

1 780 

IFN=12THEN1800 

: rem 

69 

1 783 

IFZ = 11THENZ=12:P$=PD$: GOTO3 6 0 

: rem 

51 

1 800 

CT=CT+1 

: rem 

1 44 

1 805 

IFCT<13THENZ=0:P$=Pl$:GOTO360 

: rem 

38 

1 807 

Q=CT-12 

: rem 

1 33 

1808 

ONQGOTO 1 81 0,1 81 2,1 81 4,1 81 6,1 81 8,1 820,1 82 2 

f 1 824, 

1 826 


,1828,1830,1832,1834 

: rem 

1 31 

1 809 

GOTOl840 

s rem 

216 

1 810 

IFY (0,13)=100THENP$=P1$ :Z = 0:GOTO360 

: rem 

35 

1 81 1 

GOTOl800 

: rem 

205 
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1 81 2 

IFY(1,13)=100THENP$=P2$:Z=1:GOTO360 

: rem 

40 

1 81 3 

GOTOl800 

: rem 

207 

1 81 4 

IFY(2,13)=100THENP$=P3$:Z = 2:GOTO360 

: rem 

45 

1 81 5 

GOTOl800 

: rem 

209 

1 81 6 

IFY(3,13)=100THENP$=P4$:Z=3:GOTO360 

: rem 

50 

181 7 

GOTOl800 

: rem 

21 1 

1 81 8 

IFY ( 4,13)=10 0THENP$=P5$:Z = 4:GOTO360 

: rem 

55 

1 819 

GOTOl800 

: rem 

21 3 

1 820 

IFY(5,13)=100THENP$=P6$:Z=5:GOTO360 

: rem 

51 

1 821 

GOTOl800 

: rem 

206 

1 822 

IFY(6,13)=100THENP$=P7$:Z=6:GOTO360 

: rem 

56 

1 823 

GOTOl800 

: rem 

208 

1 824 

IFY(7,13)=100THENP$=P8$:Z=7:GOTO360 

: rem 

61 

1 825 

GOTOl800 

: rem 

21 0 

1 826 

IFY (8,13)=10 0THENP$=P9$:Z = 8:GOTO360 

: rem 

66 

1 827 

GOTOl800 

: rem 

21 2 

1 828 

IFY(9,13)=10 0THENP$ = PA$:Z = 9:GOTO360 

: rem 

78 

1 829 

GOTOl800 

: rem 

21 4 

1 830 

IFY (10,13)=100THENP$ = PB$ :Z=10:GOTO360 

: rem 

1 52 

1 831 

GOTOl800 

: rem 

207 

1 832 

IFY(11,13)=100THENP$=PC$:Z=11:GOTO360 

: rem 

157 

1 833 

GOTOl800 

: rem 

209 

1 834 

IFY(12,13)=100THENP$=PD$:Z=12:GOTO360 

: rem 

1 62 

1 840 

Tl=0 :FORX=OTOl3 :Tl=Tl+Y(0,X) :NEXT:IFY(0, 

14)>63THENTl 


=Tl+35 :rem 19 

1 850 T2 = 0:FORX=OTOl3:T2=T2+Y(1 ,X) :NEXT:IFY(1 ,14)>63THENT2 


=T2+35 : rem 27 

1 860 T3 = 0:FORX=OTOl3 :T3=T3+Y(2,X) :NEXT:IFY(2,14)>63THENT3 

=T3+35 :rem 35 

1 870 T4 = 0:FORX = OTOl3 :T4 = T4+Y(3,X) :NEXT:IFY(3,14)>63THENT4 
=T4+35 :rem 43 

1 880 T5 = 0:FORX = OTOl3 :T5 = T5+Y(4,X) :NEXT:IFY(4,14)>63THENT5 
=T5+35 :rem 51 

1 890 T6 = 0:FORX = OTOl3 :T6 = T6+Y(5,X) :NEXT:IFY(5,14)>63THENT6 
=T6+35 :rem 59 

1 900 T7 = 0:FORX=OTOl3 :T7 = T7+Y(6,X) :NEXT:IFY(6,14)>6 3THENT7 
=T7+35 :rem 58 

1910 T8 = 0:FORX = OTOl3 :T8 = T8+Y(7,X) :NEXT:IFY(7,14)>63THENT8 
=T8+35 :rem 66 

1 920 T9=0:FORX=OTOl3 :T9=T9+Y(8,X) :NEXT:IFY(8,14)>63THENT9 

=T9+35 :rem 74 

1 930 TA=0:FORX = OTOl3 :TA=TA+Y(9,X) :NEXT:IFY(9,14)>63THENTA 
=TA+35 : rem 117 

1 940 TB = 0:FORX = OTOl3 :TB=TB+Y(10,X) :NEXT:IFY(10,14)>63THEN 
TB=TB+35 :rem 203 

1950 TC=0:FORX=OTOl3:TC=TC+Y(11,X):NEXT:IFY(11,14)>63THEN 
TC=TC+35 : rem 211 

1 960 TD = 0:FORX = OTOl3 :TD=TD+Y(12,X) :NEXT:IFY(12,14)>63THEN 
TD=TD+35 :rem 219 

1 990 PRINT"{CLR}{YEL}":POKE53280,0 :POKE53281 ,0 :rem 100 
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1995 PRINTTAB(11)"RISULTATI{ 2 SPAZI{FINALI" 
2000 PRINTTAB(10)"{ 2 GIU'}"Pi$TAB(25)INT(Tl) 
2010 PRINTTAB(10)"{GIU*}"P2$TAB(25)INT(T2) 
2020 PRINTTAB(10)"{GIU'}"P3$TAB(25)INT(T3) 
2030 PRINTTAB(10)"{GIU'}"P4$TAB(25)INT(T4) 
2040 PRINTTAB(10)"{GIU*}"P5$TAB(25)INT(T5) 
2050 PRINTTAB(10)"{GIU'}"P6$TAB(25)INT(T6) 
2060 PRINTTAB(10)P7$TAB(25)INT(T7) 

2070 PRINTTAB (10) P8$TAB (25) INT(T8) 

2080 PRINTTAB(10)P9$TAB(25)INT(T9) 

2090 PRINTTAB(10)PA$TAB(25)INT(TA) 

2100 PRINTTAB(10)PB$TAB(25)INT(TB) 

2110 PRINTTAB(10)PC$TAB(25)INT(TC) 

2120 PRINTTAB (10) PD$TAB (25) INT(TD):POKEl 98,0 
2150 GETC$ 

2160 IFC$=""THEN2150 
2170 RUN 


rem 

167 

rem 

51 

rem 

37 

rem 

40 

rem 

43 

rem 

46 

rem 

49 

rem 

223 

rem 

226 

rem 

229 

rem 

246 

rem 

240 

rem 

243 

rem 

93 

rem 

1 5 

rem 

55 

rem 

191 


AVVISO 

Se possiedi un VIC 20 con espansione da 16K, Paperso ft Commodore 
ha in serbo un magnifico regalo per te: nei prossimi due numeri troverai 
infatti, diviso in du parti, un fantastico adventure game intitolato "LA 
CORONA DI PIETRA Non lasciartelo sfuggire! 

La Redazione 


LC6A 

Fallout 


All'inizio di questo semplice ma 
appassionante gioco, vedrete sul¬ 
lo schermo delle barrette interrotte 
da alcune fessure. Lo scopo del 
gioco è di riuscire a fare passare 
delle pedine, rappresentate da nu¬ 
meri, poste al di sopra delle barre, 
attraverso le fessure, spostando le 
barrette stesse con dei semplici co¬ 
mandi impostati nel formato xyz, 
dove: 


x è il numero della barretta,- 
yè la direzione dello spostamento 
(S=sinistra - D=destra); 
z è il numero degli spostamenti che 
desiderate la barretta effettui. 

Ad esempio, la mossa 5D3 fa spo¬ 
stare 3 volte verso destra la barret¬ 
ta n. 5. Vince chi fa "cadere" tutti 
i numeri utilizzando il minor nume¬ 
ro di spostamenti possibile. 
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1 0 REM FALLOUT 




: rem 

92 

20 DIM H(16,8) 




: rem 

160 

30 PRINT"{CLR}{GRN}" 




: rem 

229 

40 POKE53280,8:POKE53281,1 



: rem 

194 

50 FORX=OTOl6 




: rem 

27 

60 FORY=1T08 




: rem 

239 

70 H(X,Y)=1 




: rem 

75 

80 NEXTY,X 




: rem 

1 32 

90 REM 




: rem 

77 

100 FORY=lT08 




: rem 

26 

110 FORB=lT04 




: rem 

0 

120 X=INT(RND(0)*16+1) 




: rem 

1 82 

130 H(X,Y)=0 




: rem 

119 

140 NEXTB,Y 




: rem 

1 55 

150 REM NUMERAZIONE BARRE 




: rem 

51 

160 FORB=1T08 




: rem 

9 

170 H(2*B-1,0)=B+100 




: rem 

1 96 

180 NEXTB 




: rem 

26 

190 GOSUB610 : REM DISEGNO 




: rem 

21 6 

200 GOSUB910 : REM MODIFICA 




: rem 

6 

210 GOSUB610 : REM DISEGNO 




: rem 

209 

300 REM 




: rem 

119 

310 INPUT"{GIU 1 }MOSSA";Z$ 




: rem 

181 

320 Y=VAL(LEFT$(Z$,1)) 




: rem 

21 8 

330 IFY<1ORY>8THEN510 




: rem 

32 

340 D$=MID$(Z$,2,1) 




: rem 

1 96 

350 DX=VAL(MID$(Z$,3)) 




: rem 

209 

360 IFDX=0THEN510 




: rem 

246 

370 IFD $ < >"S"ANDD $ < >"D"THEN 510 



: rem 

1 64 

380 IFD$="S"THENGOSUBl110 

: REM SCIVOLA 

A 

SINISTRA:rem 

1 81 

390 IFD$="D"THENGOSUBl210 

: REM SCIVOLA 

A 

DESTRA 

: rem 

254 

400 BR=BR+1 




: rem 

85 

410 GOSUB910 




: rem 

1 75 

420 GOSUB610 




: rem 

1 73 

430 IFSO = 36THENPRINT" {GIU ' }CONGRATULAZIONI, CE 

L'HAI 

FAT 

TA!":END 




: rem 

1 97 

440 IFDX>1THENDX=DX-1:GOTO380 



: rem 

66 

500 REM 




: rem 

1 21 

510 PRINT"{HOME}{ 11 GIU' 

}" 



: rem 

53 

520 FORY=l0TO21 




: rem 

1 23 

530 PRINT"{ 20 SPAZI}" 




: rem 

105 

540 NEXTY 




: rem 

49 

550 PRINT"{ 20 SPAZI}"; 




: rem 

1 66 

560 PRINT"{HOME}{ 11 GIU' 

}’• 



: rem 

58 

570 GOTO310 




: rem 

1 05 

600 REM DISEGNO 




: rem 

131 

610 PRINT"{HOME}{GIU'}{ 8 

DES} " ; 



: rem 

1 75 

620 FORYl=0TO8 




: rem 

81 

630 REM 




: rem 

1 25 

640 IFYl=0THEN PRINT"{ 4 

SPAZI}"; 



: rem 

91 
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650 

IFYl>OTHEN PRINTSPC(8)STR$(Yl);"> 

: rem 

61 

660 

FORX=OTOl6 

: rem 

82 

670 

Z=H(X,Yl) 

: rem 

219 

680 

G0SUB810 : REM SCRIVE L'ELEMENTO 

: rem 

1 09 

690 

NEXTX 

: rem 

54 

700 

PRINT 

: rem 

36 

710 

NEXTYl 

: rem 

97 

720 

PRINTSPC(4)"{GIU'}PUNTEGGIO:";SC;"{ 

3 SPAZI}SPOSTAMEN 


TI : " ; BR 

: rem 

1 30 

730 

RETURN 

: rem 

1 22 

800 

REM SCRIVE L'ELEMENTO 

: rem 

20 

81 0 

IFZ=OTHENPRINT" 

s rem 

42 

820 

IFZ=1THEN PRINT"{RVS}[<@>]{OFF}"; 

: rem 

1 1 6 

830 

IFZ>100THEN PRINTCHR$(Z-52); 

: rem 

1 38 

840 

RETURN 

: rem 

1 24 

900 

REM MODIFICA 

: rem 

1 85 

910 

FORYl=8TOOSTEP-1:REM CERCA DA CIMA A 

FONDO :rem 

1 91 

920 

FORX= OTO16 

: rem 

81 

930 

TY=Y1 

: rem 

1 6 

940 

IFH(X,Yl)<100THEN 1020 

: rem 

1 46 

950 

IFTY> = 8THEN 1 060:REM FONDO RAGGIUNTO 

: rem 

199 

960 

IFH (X,TY+1 ) OOTHEN 1 020:REM BLOCCATO 

: rem 

85 

970 

REM PORTA L'ELEMENTO GIU' 

: rem 

226 

980 

H(X,TY+1)=H(X,TY) 

2 rem 

206 

990 

H(X,TY)=0 

2 rem 

21 7 

1000 

TY=TY+1 

2 rem 

1 80 

1010 

GOTO950: REM CONTINUA A SPOSTARE 

2 rem 

202 

1020 

NEXTX 

2 rem 

90 

1030 

NEXTYl 

2 rem 

141 

1040 

RETURN 

2 rem 

165 

1050 

REM FONDO RAGGIUNTO 

2 rem 

208 

1060 

SC=SC+H(X,TY)-100 

2 rem 

227 

1070 

H{X/TY)=0 

2 rem 

255 

1080 

GOTOl020 

2 rem 

1 97 

1 1 00 

REM SPOSTA LA BARRA A SINISTRA 

2 rem 

35 

ino 

TM=H(0,Y) 

2 rem 

239 

1 1 20 

FORX=OTOl5 

2 rem 

1 21 

1 1 30 

H (X, Y) =H (X+l , Y) 

2 rem 

74 

1140 

NEXTX 

2 rem 

93 

1 1 50 

H{1 6,Y)=TM 

2 rem 

42 

1 1 60 

RETURN 

2 rem 

1 68 

1 200 

REM SPOSTA LA BARRA A DESTRA 

2 rem 

1 22 

1 21 0 

TM=H(16,Y) 

2 rem 

39 

1220 

FORX=16T01STEP-1 

2 rem 

22 

1230 

H(X,Y)=H(X-1 # Y) 

2 rem 

77 

1240 

NEXTX 

2 rem 

94 

1 250 

H(0,Y)=TM 

2 rem 

244 

1 260 

RETURN 

2 rem 

1 69 
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Stop Bug 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bus P& H tuo computer. 
Questo programma ti permette, 
ima volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano còn la 
parola "■.rem” seguita da un nume¬ 
ro, detto checksum; non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate 
Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea 
Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma 
Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4) Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il 06 e il PLUS/4; 
SYS 40704 per il C 64 









STOP BUG per C64 e VIC 20 


1 00 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)*2 56:PRINT"{CLR} 
ATTENDERE PREGO-" 

1 10 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU'}ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU’}{RVS}STOP BUG{OFF} ATTIVAT 
O.":NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 

2 20 DATA32,1 41 ,36,3,169,999,141 ,37,3 
230 DATAI 69,0,1 33,2 54,96,3 2,87,241 ,1 33 
240 DATA2 51 ,1 34', 252,1 32,253,8,201 , 1 3,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,2 54,1 33 
260 DATA254,1 6 5,251 ,166,252,164,253,40,96 
27 0 DATAI 69,1 3,32,210,255,165,21 4,1 41 ,251 
280 DATA3,206,251 ,3,169,0,133,216,169 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,2 54,1 72,3 3,9 99,192,87,20 8,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,1 33,21 4,76,55,999 


STOP BUG per CI 6 e PLUS/4 

100 POKE55,0-.POKE56,63 :PRINT" {CLR} ATTENDERE PREGO..." 

110 FORI = 1612 8T016260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS!6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201 ,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141 ,34,63,1 69 
220 DATA32,1 41 ,34,3,169,63,141 ,35,3 
2 30 DATAI 69,0,1 33,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201 , 1 3,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,21 0,255,165,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,21 0,255,32,210,255,1 73 
340 DATA251,3,133,205,76,55,63 




A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla libreria JACKSON 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

TeL 02-437385 . 

Vieni a trovarci : ti aspettiamo. 




